home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / VisuNetlist.AmiCAD < prev   
Text File  |  2000-04-14  |  577b  |  25 lines
  1. /* Chargement d'une netlist à l'aide d'Amitex */
  2. /* Version 1.00 (22 février 1999) */
  3.  
  4. options results     /* indispensable pour récupérer le résultat des macros */
  5.  
  6. signal on error     /* pour l'interception des erreurs */
  7. signal on syntax
  8.  
  9. 'REQFILE("Netlist à visualiser?", "Travail:AmiCAD/Spice", "*.cir")'
  10. f=result
  11. if f='' then exit
  12.  
  13. call edit.rexx(f)
  14. exit
  15.  
  16. /* Traitement des erreurs, interruption du programme */
  17. syntax:
  18. erreur=RC
  19. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  20. exit
  21.  
  22. error:
  23. 'MESSAGE("Erreur en ligne 'SIGL'")'
  24. exit
  25.